home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / general / SaveADPro_Picture.rx < prev    next >
Encoding:
Text File  |  1999-02-22  |  391 b   |  25 lines
  1. /* SaveAdpro Picture*/
  2.  
  3.     options results
  4.     parse ARG Port b
  5.  
  6.     IF ~SHOW('P','ADPro') THEN
  7.         DO
  8.             ADDRESS value Port
  9.         pp_Warn "Can't*locate*ADPro"
  10.       EXIT
  11.         END
  12.  
  13.     ADDRESS value Port
  14.     pp_asay 'Saving*file|Please*wait*...'
  15.     pp_save 'ram:t/pptemp' 0
  16.     pp_closeasay
  17.  
  18.     ADDRESS 'ADPro'
  19.   LFORMAT "UNIVERSAL"
  20.     ADPRO_TO_FRONT
  21.   LOAD 'ram:t/pptemp'
  22.  
  23.     ADDRESS COMMAND
  24.     'delete >nil: ram:t/pptemp'
  25.